home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / ScrollBars.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  9.1 KB  |  25 lines  |  [TEXT/.Ob4]

  1. ¯6Hˇ‡ò â≤,am|ScrollBarsÇ2¶ëEßh»iãíô†1À k7ÉÑÖ;‚ÜDisplay;‚WêInput2ˆÊÃOberon2ˆßæTexts;‚WêFonts;ı‰ƒViewersÜ ˝Uˇ≥ˇ†˙H˙r˙U˙
  2. ˘ááà|¶æ¡ˇÿ}`&êëaî!ˇò;·8êA,ÉNf0B;ƒ;•;Ü;g;H;);
  3. @Û:‡ :¿3Ω3úˇˇC‡ :‡:¿ 8w8õ8∫8Ÿ8‡9ÄBˇ‰HÄA8w}õ 0厞0∫8¿0¯ˇ˛9ÄBˇ‰KˇˇÅÄA8v8õ0∫8¿0¯ˇ˛9ÄBˇ‰KˇˇYÄA8v0õ|∫¬0•ˇ˛0Ÿˇ¸8‡9ÄBˇ‰Kˇˇ5ÄA8v8õ0∫8¿ÄBˇ‰HÄA8v|€ 0ܡ˛|˙¬0ߡˇ8¿ÄBˇ‰Kˇ˛ÒÄA8`
  4. 0õ0∫0Ÿˇ¸0¯ˇ¸9ÄBˇ‰Kˇˇ
  5. ÄA/A˙$8`8û|ªÍ|⁄‚8‡ÄBˇ‰HÄAÄ8Å4Ä!|¶}Ò ∫¡ˇÿO‡ ø¡ˇ¯î!ˇ¿;·8;√ ûÅ"ë> ûÅBë^ û©b±~ û©Çx±û$ û®b|∞~& û®Çz∞û( û®¢~∞æ* û8¿∞fi û8‡∞˛ û9±  û9 ±>" û9@±^ û9`±~ û9ıû û8`∞~
  6. û8Ä∞û û8†∞æ û8¿êfiÄ!ª¡ˇ¯O‡ ø!ˇ‰î!ˇ†;·8;√;§;Ö;f û û®˛TË<©>
  7. HH û û©^ }Kp©û ,Zö»A˝ û8`∞~ û≥^C‡∏,ù@Ê û8Ä∞û û≥^C‡ò/@˙$ùÿ@˛ û8†∞æ û≥^C‡p û|Ÿ–|¸ÿ}9÷ù}(Í◊@‡1)ˇˇ±> û©^|ä»@‰ û≥>C‡ û©~ –@˘ û≥^ û}ô–|l·÷ù|ÉÍ◊@‡0Ñˇˇ∞û/ú@˝$ û®æ,Ö@Ê û®fi0Ê∞˛ÿ@˙ û û©}(–±>C‡∞ û û©^©~}äZå–A¸î û û û®~®û|£ |¶p®˛}8± û©>|â»@‰ û≥>C‡ û©^
  8. –@˘ û≥^ û û©~}ã–±û û®~/É@˝ û®û0§ˇˇ∞æÄ!ª!ˇ‰O‡ øAˇËî!ˇ∞;·8;√;§;Ö;f;G û≥~ û≥æ û≥û û≥~ û≥^
  9. û û®fi$0Ê© |à8@‰4 û û©>$©^(    PA¯ û û©~$1ã±û C‡L û û®~(0É®æ Ö @¸0 û û®fi(®˛$|Ü8A‰ û û©(1(±> û û©^$}jÿ}lp±û û û®~&|Éÿ|Öp∞æ û û®fi(|Êÿ|Ëp±  û û©>*}Iÿ1j}lp±û" ûcp|õ∞û û8†∞æÄ!ªAˇËO‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ |¶øˇ‡|¿&êê¡î!ˇò;·8êA;√/Nz–B û´æ û û®˛©áB û´~ ûWi<©^
  10. IP û´> û´ û©~ ãÿA˛,8`8ù8º8€8˙9ÄBˇ‰Kˇ˛©ÄAC‡‡lp|{b|ö@‰0 û®~8ù8º8€8˙9ÄBˇ‰Kˇ¯…ÄAC‡§/@˘0 û®~8ù|º“|π(8€8˘9ÄBˇ‰Kˇ¯çÄA|¿&T√߲8Ä8†8¿8˝}“}9@}H9;9XKˇ¯!}Y–}xP/ã@˝0 û®~8ù8º8€}ô–|¯`9ÄBˇ‰Kˇ¯UÄAÄ8Ä4Ä!|¶|oÒ ªˇ‡O‡ |¶øaˇÏ}&êëî!ˇ∞;·8êA;√,ÑNf0B;•;Ü;g8~8ù8º8€Å#ˇ¸Ä    ˇ¥|    ¶ÄIˇ∏O‡!ÄA8~}@&UD߲Åcˇ¸Ä ˇú|    ¶ÄKˇ†O‡!ÄAÄ ÅüÄ!|¶}èÒ ªaˇÏO‡ ø°ˇÙ|¿&ê¡î!ˇ∏;·8;√/Nz–B;•ġÄ!|ÔÒ ª°ˇÙO‡ |¶ø°ˇÙ}&êëî!ˇ∞;·8êA;√/ÑN~B} &U#߲ ûÄû û®æ û®fi û®˛ û© û©> û©^KˇˆÅÄ Å_Ä!|¶}OÒ ª°ˇÙO‡ |¶ø¡ˇ¯}`&êëaî!ˇ¿;·8êA;√,ÑNf0B}Ä&UÉ߲ ûÄû û®æ  û®fi" û®˛ û û©©>
  11. }HJ û©~} P û©> û©^Kˇı›ÄÅü Ä!|¶}èÒ ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ¿;·8êA;√ û û®~ Td<®æ
  12.  @¯@ û®~ û®û û®æ û®fi û®˛
  13. 9ÄBˇ‰Kˇ˜ÈÄAC‡d8~8ÄÄ√ˇ¸Äˇî|    ¶ÄFˇòO‡!ÄA8~8ÄÄ„ˇ¸Äˇú|    ¶ÄGˇ†O‡!ÄA8~8ÄŎ¸Äˇ§|    ¶ÄHˇ®O‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶æ·ˇ‹} &êë!î!ˇê;·8êA;√;§;Ö;f û´^ û´> û´:¯ÅBˇÏ8j,ÅbˇÏÄãˇËÅǡÏ8¨ ĬˇÏÄΔˇÏ®˝©ÄBˇÏHÄAN@ÇÄBˇËHÄAêbåN`ÇAÚh®˝ö8A˝\}¬©=|â@@‰L©\PA˘@}y∫©úåX@¸0N@B8~|Ä&TÑü˛Ä£ˇ¸Äˇ§|    ¶ÄEˇ®O‡!ÄAC‡h@Úd®›|Ü–A‰0|˙¬©@@˘ ©<â»A¸}Y∫©||äXAÂ,N@Ç8~}Ä&UÑü˛Ä£ˇ¸Äˇ§|    ¶ÄEˇ®O‡!ÄA@ÚxÄ€/A˙lÄBˇËKˇÙMÄAêbêÄ‚êÅåá@A¸L@ÛÅ"êÅBÄ}iRëbåC‡N`BÅÇêÄbÑ|åêÇå8~Ä£ˇ¸Äˇt|    ¶ÄEˇxO‡!ÄA88ù8ºÄBˇËHÄAĬˇÏ8f,Ä‚ˇÏÄáˇËŎÏ8® Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÙ]ÄAÅ[Å}L[xëõÄ,É@Ê˛X8~8ÄÄ£ˇ¸Äˇ§|    ¶ÄEˇ®O‡!ÄAÄ@Äfl<Ä!|¶|œÒ ∫·ˇ‹O‡ |¶æ·ˇ‹|‡&êê·î!ˇê;·8êA;√;§;Ö;f û´^ û û©©>
  14. }HJ û©~+P û´:¯ÅǡÏ8l,ÄǡÏÄÑˇËÄ¢ˇÏ8• ĬˇÏÄΔˇÏ®˝©ÄBˇÏKˇÚµÄAN@ÇÄBˇËKˇÛ]ÄAêbåN`ÇAÚh®˝8A˘\}¬©=â@@¸L©\|ôPAÂ@}y∫©ú X@¯0N@B8~|Ä&TÑü˛Ä£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAC‡h@Úd®›Ü–A¸0|˙¬©|á@@ ©<    »A¯}Y∫©|äXA˝,N@Ç8~}Ä&UÑü˛Ä£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄA@ÚxÄ€,ÜAÊlÄBˇËKˇÒµÄAêbêÄ‚êÅå@A¯L@ÛÅ"êÅBÄ}iRëbåC‡N`BÅÇêÄbÑ|åêÇå8~Ä£ˇ¸Äˇ||    ¶ÄEˇÄO‡!ÄA88ù8ºÄBˇËKˇÚÈÄAĬˇÏ8f,Ä‚ˇÏÄáˇËŎÏ8® Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÒ≈ÄAÅ[Å}L[xëõÄ/É@˛˛X8~8ÄÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄ@Äfl<Ä!|¶|œÒ ∫·ˇ‹O‡ |¶Ω·ˇºêî!ˇ`;·8êA;√;§;Ö;f û´^ û û®˛©'B û´ û û©>U*<©~
  15. ~ÍX û™fi û™æ û û©û }Ép®û ~d::ï™\9‡Ä¢ˇÏ8e,ĬˇÏÄܡËÄ‚ˇÏ8ß ÅˇÏÄ»ˇÏ®˝©ÄBˇÏKˇÄA8~8ÄÅ#ˇ¸Ä    ˇú|    ¶ÄIˇ†O‡!ÄA™<Å[,äAÊ0/A˙(8~8Ä8¥Åcˇ¸Ä ˇ,|    ¶ÄKˇ0O‡!ÄA88ù8ºÄBˇËKˇQÄAÅǡÏ8l,ÄǡÏÄÑˇËÄ¢ˇÏ8• ĬˇÏÄΔˇÏ®˝©ÄBˇÏKˇÓıÄAÄ˚Å|ÈCxë;©\}Íà©|}ãê~ïb/è@˝ û®~|î@Â/@¯ û®ûî A¸9‡,è@Â@ û û®æ®fi|Â28@˙$™\ û™æ9‡í»@¸:YC‡<,è@‰4 û©/@˙$™\:†9‡}9∫íHA¸ }Y∫2Jˇˇ,î@‰ :ÄC‡}s∏X@˘~ì∏Åü/å@˛˛|Ä{<ć|É AÊ(8~8ÄÄ£ˇ¸Äˇú|    ¶ÄEˇ†O‡!ÄAC‡(8~8Ä8∞Ä√ˇ¸Äˇ,|    ¶ÄFˇ0O‡!ÄAÄpÄ!|¶π·ˇºO‡ |¶øaˇÏ|‡&êê·î!ˇ®;·8êA;√;§;Ö;fÄBˇËKˇ≈ÄAêbå û û©©>
  16. }HJ û©~}ãP û®~|É`®º A¯ÄĬˇÏ8f,Ä‚ˇÏÄáˇËŎÏ8® Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÓMÄAN`ÇÅ[/äA˛– û û©~©û
  17. |kb û®û|§ û®fi|Ê(©|à8A‰ò û û©>©^
  18. }iR û©û|lX®ú@¯lÄBˇËKˇÏ•ÄAêbêÄ¢êĬåÖ0A¸L@ÛÄ‚êÅÑ}'Bë"åC‡N`BÅBêÅbà}äZëÇå8~Äɡ¸Äˇd|    ¶ÄDˇhO‡!ÄA88ù8ºÄBˇËKˇÓÅÄAÄ¢ˇÏ8e,ĬˇÏÄܡËÄ‚ˇÏ8ß ÅˇÏÄ»ˇÏ®˝©ÄBˇÏKˇÏ5ÄAÅ;Å_}+Sxë{Åü,å@Ê˛ƒC‡Ï û û®~®û
  19. |£" û®fi|Ê( û©}(8 û©^}jH©ú XA¯08~8ù8º8€Ä„ˇ¸ÄˇL|    ¶ÄGˇPO‡!ÄAC‡|ŎÏ8h,Å"ˇÏÄâˇËÅBˇÏ8™ ÅbˇÏÄÀˇÏ®˝©ÄBˇÏKˇÎ
  20. ÄAN`ÇÅõ/åA˛– û û®~®û|£"®‹|Ü(A‰∞ û û®˛©
  21. }'B û©^}jH û©û|lX û®û|§®‹(@¯lÄBˇËKˇÎµÄAêbêÄ‚êÅåá@A¸L@ÛÅ"êÅBÑ}iRëbåC‡N`BÅÇêÄbà|åêÇå8~Ä£ˇ¸Äˇl|    ¶ÄEˇpO‡!ÄA88ù8ºÄBˇËKˇÎAÄAĬˇÏ8f,Ä‚ˇÏÄáˇËŎÏ8® Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÍIÄAÅ[Å}L[xëõÄ,É@Ê˛ƒÄ(Äü$Ä!|¶|èÒ ªaˇÏO‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§∞ø0∞fl4êˇ8 ûìæÄø8/A˙X û û®fi®˛ Ü8A¸@ û û©U    <©^
  22. |äHA‰$ û®~ û®û û®æ û®fi
  23. ÄBˇÏHÄA û û©~©û|kb®ü4@¯08~8ü08ø48fl8Ä„ˇ¸ÄˇT|    ¶ÄGˇXO‡!ÄAC‡¨ û û©©>
  24. }HJ û©~}ãP®4É`A¸08~8ü08ø48fl8Ä„ˇ¸Äˇ<|    ¶ÄGˇ@O‡!ÄAC‡T û û©U    < û©^}iR©û
  25. |åXA‰,8~8ü08ø48fl8Ä„ˇ¸ÄˇD|    ¶ÄGˇHO‡!ÄAÄÄ!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÅˇË©(}*pëBàÅbˇË©ã8`|å◊@‡0ÑˇˇêÇÑÄ¢ˇË®≈8‡}:◊@‡1ˇˇëÄ9 
  26. ±"9@ëB09`ëb =Ä8ëÇ4<`8êb(<Ä8êÇ8<†8ê¢$<¿8ê¬<<‡8ê‚ =˛ë@= ˛ë"=@|ëBD=`|ëb=Ä8ëÇH<`8êb<ÄêÇL<†ê¢8b08Ä    8†8¿ÄBˇ‰HÄAêb8b 8Ä    8†8¿ÄBˇ‰KˇÊ=ÄAêb8¿∞¬x8‡∞‚|9±z9 ±"~ÄÄ!|¶ª·ˇ¸O‡ â,ˇ¸ˇˇˇˇScrollBarElemDesc
  27. 
  28. 
  29.     
  30.      ämpsvy|ÇÖàãéëîóöù†≠Æ≥¥ªæ√ΔÕ–”◊‹‡„ÁÈÏÛ˜˝˛
  31.   !"&*9;=?ACDJKPQVW]^cdhinotuz{ÅÖ≤¥µπªø¡√’‚˝RTVXZ\^uwy{}~ÇÖáòôü°£•ß◊Ÿ€wyz~Å"$%*,./zÄáàèò⁄€fl‚˘˙˛ GHLORtu|}ÅÑá”ÿŸfiflÂÁÈÎÒã¯È08DrawButtonÁ{HÊ{W‰{XÂ{YË{lowerCol·{pat‚{patX„{patYå{pressedÈ{upperCol¯¶8ScrollBarElem.Init
  32. ·{obj¯±(8ScrollBarElem.CalculateSliderDim„{beg‰{endÂ{h‚{lengthÊ{minSliderH
  33. ·{obj¯ã8ScrollBarElem.SetDimÂ{h
  34. ·{obj‰{w‚{x„{y¯í8ScrollBarElem.LineDown
  35. ·{obj¯ô8ScrollBarElem.LineUp
  36. ·{obj¯†8ScrollBarElem.PageDown
  37. ·{obj¯ß8ScrollBarElem.PageUp
  38. ·{obj¯è08ScrollBarElem.DrawSliderÂ{h
  39. ·{objå{pressedÁ{sHÊ{sdY‰{w‚{x„{y¯∑8ScrollBarElem.Update„{beg‰{end‚{length
  40. ·{objå{sliderPressed¯≈8ScrollBarElem.UpdateView‚{dY
  41. ·{objå{pressed¯Ë8ScrollBarElem.DrawDownButton
  42. ·{obj‚{patå{pressed¯ë8ScrollBarElem.DrawUpButton
  43. ·{objå{pressed¯À8ScrollBarElem.Draw
  44. ·{obj¯Î88ScrollBarElem.TrackDownButtonå{fastË{h    keys    ‰{keysum‚{mx„{my
  45. ·{objç{pressedÁ{wÂ{xÊ{y¯ë88ScrollBarElem.TrackUpButtonå{fastË{h    keys    ‰{keysum‚{mx„{my
  46. ·{objç{pressedÁ{wÂ{xÊ{y¯     Ë8ScrollBarElem.TrackSliderÎ{dYÔ{dYOld{deltaË{h    keys    ‰{keysumÏ{minH‚{mx„{myÓ{myHelpÌ{myOld
  47. ·{objÈ{sHÍ{sdYÁ{wÂ{xÊ{y¯»  8ScrollBarElem.TrackSliderBarå{fast    keys    ‰{keysum‚{mx„{my
  48. ·{obj¯≤ 8ScrollBarElem.HandleScrollBar
  49. ‚{F    8keysum0mx4my
  50. ·{obj¯â
  51. 8$$backgroundColdownArrow¸downPatH¯downPatWàhighDelayÄlowDelayÑmiddleDelayåsuspendTimeêtimeupArrow˛upPatH˙upPatW